home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / s / ep_stop.dopus < prev    next >
Text File  |  1993-10-05  |  556b  |  37 lines
  1. /* Eagleplayeransteuerung über Diropus
  2.    (c) 1993 DEFECT
  3.    Stoppt das Abspielen
  4. */
  5. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  6.  do
  7.   address 'DOPUS.1'
  8.   toptext 'No Eagleplayer found'
  9.   exit
  10.  end
  11.  
  12. address 'rexx_EP'
  13.  
  14. options results
  15.  
  16. status G fil
  17.  
  18. if result == "no" then do
  19.     address 'DOPUS.1'
  20.     toptext "Eagleplayer: No Module loaded !"
  21. end
  22. else do
  23.  
  24.  status g ply
  25.  aha =result
  26.  if aha == "no" then do
  27.     address 'DOPUS.1'
  28.     toptext "Eagleplayer: I don`t play !"
  29.  end
  30.  else
  31.   do
  32.     Stop
  33.     address 'DOPUS.1'
  34.     toptext "Eagleplayer: Playing now stopped !"
  35.   end
  36. end
  37.